home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ Win2K NTP Options 2.xpl < prev    next >
Text File  |  2001-10-29  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Network\Network Time Protocol"
  5. "NAME"="NTP Server Options #2"
  6. "OSVERSION"="000101"
  7. "VERSION"="1.00"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Synchronize with Domain (default)"
  10. "TEXT 2"="Synchronize with manual configured time sources" 
  11. "TEXT 3"="Do not automatically synchronize time" 
  12. "DESCRIPTION 1"="This plug-in allows you to configure how W32Time (w32tm.exe) should synchronize the local time."
  13. "DESCRIPTION 2"="The third option is useful if this computer is configured to get the time from an external time adapter e.g. from a R/C clock."
  14. "DESCRIPTION 3"="Activating the thrid option here plus the "Allow this computer as NTP server" option in the other plug-in stops W32Time from trying to synchronize the time locally (this is already done by the R/C clock) and allows other computers to connect to this computer and get the correct time."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21.  
  22. sP="HKLM\System\CurrentControlSet\Services\W32Time\Parameters\Type"
  23.  
  24. Sub Plugin_Initialize 
  25.  s=RegReadValue(sP)
  26.  
  27.  if UCase(s)="NT5DS" or IsEmpty(i) then 
  28.     SetUIElement 1,true
  29.  elseif UCase(s)="NTP" then
  30.     SetUIElement 2,true
  31.  else
  32.     SetUIElement 3,true
  33.  end if
  34.  
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  if GetUIElement(1)=true then
  39.     Call RegWriteValue(sP,"Nt5DS",1)  
  40.  elseif GetUIElement(2)=true then
  41.     Call RegWriteValue(sP,"NTP",1)
  42.  else
  43.     Call RegWriteValue(sP,"NoSync",1)
  44.  end if
  45.  
  46.  Call Restart()
  47. End Sub
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.  
  52.